home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / bbs / trionbbs100.lha / Trion / scripts / upload < prev    next >
AmigaDOS Script File  |  1997-05-11  |  3KB  |  117 lines
  1. .KEY  file,archive,desc
  2. ;.DEF file=nix
  3. .BRA  <
  4. .KET  >
  5.  
  6.  
  7. ;;;  This script will be executed after an Upload with the
  8. ;;;  name of the Uploaded file.
  9.  
  10. ;;;  archive = "RAW" | "ZIP | "LHA" | "LZX" | "ZOO" | "ARJ" | "ARC" | "DMS"
  11.  
  12.  
  13.  
  14. echo  ""                                          >>trion:log/uploadlist
  15. echo  Information on upload: <file>.              >>trion:log/uploadlist
  16. echo  ----------------------------------------    >>trion:log/uploadlist
  17. echo  Archive type is: <archive>.                 >>trion:log/uploadlist
  18. echo  Checking integrity of the archive:          >>trion:log/uploadlist
  19.  
  20.  
  21. cd trion:upload
  22.  
  23.  
  24. ;;;  In this script you can check for viruses
  25.  
  26.  
  27.  
  28. IF <archive> EQ lha
  29. ;   makedir ram:vircheck
  30. ;   copy <file> ram:vircheck
  31. ;   lha x ram:vircheck/<file> ram:vircheck
  32. ;   virus_checker -q >t:infec STDOUT RAM:vircheck/
  33. ;   delete ram:vircheck/#? all
  34. ;   delete ram:vircheck
  35. EndIf
  36.  
  37.  
  38. IF <archive> EQ lzx
  39. ;   makedir ram:vircheck
  40. ;   copy <file> ram:vircheck
  41. ;   lzx x ram:vircheck/<file> ram:vircheck
  42. ;   virus_checker -q >t:infec STDOUT RAM:vircheck/
  43. ;   delete ram:vircheck/#? all
  44. ;   delete ram:vircheck
  45. EndIf
  46.  
  47.  
  48.  
  49. ;;;  In this script you can remove BBS ads
  50.  
  51. ;;;  In this script you can extract file descriptions (File_ID.DIZ)
  52. ;;;  for use by the BBS
  53.  
  54.  
  55.  
  56. IF <archive> EQ raw
  57. ;   list trion:upload/<file>                        >>trion:log/uploadlist
  58.    echo  No information on this archive type.      >>trion:log/uploadlist
  59. EndIf
  60.  
  61. IF <archive> EQ zip
  62.    unzip -d <file> File_ID.DIZ
  63. ;   unzip -l <file>  >>trion:log/uploadlist
  64.    unzip -t <file>  >>trion:log/uploadlist
  65. EndIf
  66.  
  67. IF <archive> EQ lha
  68.    lha d <file> #?.displayme
  69.    lha x <file> File_ID.DIZ
  70. ;   lha l <file>  >>trion:log/uploadlist
  71.    lha t <file>  >>trion:log/uploadlist
  72. EndIf
  73.  
  74. IF <archive> EQ lzx
  75.    lzx d <file> #?.displayme
  76.    lzx x <file> File_ID.DIZ
  77. ;   lzx l <file>  >>trion:log/uploadlist
  78.    lzx t <file>  >>trion:log/uploadlist
  79. EndIf
  80.  
  81. IF <archive> EQ zoo
  82. ;   zoo D <file> #?.displayme
  83.    zoo e <file> File_ID.DIZ
  84. ;   zoo l <file>  >>trion:log/uploadlist
  85.    zoo -t <file>  >>trion:log/uploadlist
  86. EndIf
  87.  
  88. IF <archive> EQ arj
  89.    unarj l <file>  >>trion:log/uploadlist
  90.    unarj t <file>  >>trion:log/uploadlist
  91. EndIf
  92.  
  93. IF <archive> EQ arc
  94.    arc d <file> #?.displayme
  95.    arc x <file> File_ID.DIZ
  96. ;   arc l <file>  >>trion:log/uploadlist
  97.    arc t <file>  >>trion:log/uploadlist
  98. EndIf
  99.  
  100. IF <archive> EQ dms
  101. ;   dms View <file>  >>trion:log/uploadlist
  102.    dms Test <file>  >>trion:log/uploadlist
  103. EndIf
  104.  
  105. IF <archive> EQ raw
  106.    MagicDiz e <file> File_ID.DIZ
  107. EndIf
  108.  
  109.  
  110. IF exists File_ID.DIZ
  111.    rename File_ID.DIZ <desc>
  112. EndIf
  113.  
  114.  
  115. cd trion:
  116.  
  117.